home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Item MB Quick & Easy 2.0
/
Item MB Quick & Easy 2.0.iso
/
mbfacad
/
mb27500.lsp
< prev
next >
Wrap
Text File
|
1998-03-15
|
3KB
|
88 lines
;=============275.00 FUßSTÜTZE FÜR ARBEITSTISCH 800
(EAITDBL "0027500")
(EAITmsg "mb_mld10" "\n" "002" nil) (princ "........") (princ EAITnrx) (princ "\n")
(princ)
(defun C:27500V1 ( / P1 Wi)
(EAITDBL "0027500")
(princ (strcat "\n\n" EAITbez1))
(EAITvari)
(EAITvars)
(setvar "ORTHOMODE" 0)
(EAITbpt nil nil nil)
(setq P1 (getpoint))
(if (= P1 nil)(setq P1 (EAITrpt)))
(setvar "OSMODE" 0)
(setvar "ORTHOMODE" 1)
(EAITmsg "mb_mld10" "\n" "003" nil) ;Drehwinkel
(command EAITege (strcat EAITpfn "27500V1") P1 "" "" EAITofkei pause)
(setq Wi (EAITbw))
(command EAITege (strcat EAITpfn "EAITinfo") (polar P1 (+ Wi (EAITgib 58)) 130) "" "" ""
EAITbez1 EAITbez2 EAITlie1 EAITlie2 EAITwer1 EAITwer2 (rtos EAITl1 2 1) (rtos EAITb1 2 1) EAITnr
)
(EAITvarz2)
(princ)
);defun V1
(defun C:27500S1 ( / P1 Wi)
(EAITDBL "0027500")
(princ (strcat "\n\n" EAITbez1))
(EAITvari)
(EAITvars)
(setvar "ORTHOMODE" 0)
(EAITbpt nil nil nil)
(setq P1 (getpoint))
(if (= P1 nil)(setq P1 (EAITrpt)))
(setvar "OSMODE" 0)
(setvar "ORTHOMODE" 1)
(EAITmsg "mb_mld10" "\n" "003" nil) ;Drehwinkel
(command EAITege (strcat EAITpfn "27500S1") P1 "" "" EAITofkei pause)
(setq Wi (EAITbw))
(command EAITege (strcat EAITpfn "EAITinfo") (polar P1 (+ Wi (EAITgib 22)) 220) "" "" ""
EAITbez1 EAITbez2 EAITlie1 EAITlie2 EAITwer1 EAITwer2 (rtos EAITl1 2 1) (rtos EAITb1 2 1) EAITnr
)
(EAITvarz2)
(princ)
);defun s1
(defun C:27500D ( / P1 Wi)
(EAITDBL "0027500")
(princ (strcat "\n\n" EAITbez1))
(EAITvari)
(EAITvars)
(setvar "ORTHOMODE" 0)
(EAITbpt nil nil nil)
(setq P1 (getpoint))
(if (= P1 nil)(setq P1 (EAITrpt)))
(setvar "OSMODE" 0)
(setvar "ORTHOMODE" 1)
(initget (strcat (EAITmg "mb_mld13" "008") " " (EAITmg "mb_mld13" "009")))
(EAITmsg "mb_mld12" "\n " "028" " ")(EAITmsg "mb_mld13" nil "008" "/<")(EAITmsg "mb_mld13" nil "009" ">")
;Vollstaendige Darstellung der Multiblöcke ? Ja/<Nein>
(setq s (getreal))
(if (= s (EAITmg "mb_mld13" "008"))(setq s (strcat EAITpfn "27500d1"))(setq s (strcat EAITpfn "27500d2")))
(EAITmsg "mb_mld10" "\n" "003" nil) ;Drehwinkel
(command EAITege s P1 "" "" EAITofkei pause)
(setq Wi (EAITbw))
(command EAITege (strcat EAITpfn "EAITinfo") (polar P1 (+ Wi (EAITgib 77)) 290) "" "" ""
EAITbez1 EAITbez2 EAITlie1 EAITlie2 EAITwer1 EAITwer2 (rtos EAITl1 2 1) (rtos EAITb1 2 1) EAITnr
)
(EAITvarz2)
(princ)
);defun D
(princ)